Public Class frmBaoCaoTongGiaTriNhapTheoCacDonVi

    Private Sub frmBaoCaoTongGiaTriNhapTheoCacDonVi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cbbNhapXuat.SelectedIndex = 0
        dtpTuNgay.Text = "01/01/" + CStr(Now.Year)
    End Sub

    Private Sub btnBaoCao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaoCao.Click
        Dim strsql As String
        strsql = "select * from viewTongGiaTriNhapXuatTheoCacDonVi where "
        Dim tieude, thoigian As String
        thoigian = "( Từ ngày " + dtpTuNgay.Text + " đến ngày " + dtpDenNgay.Text + " )"

        If (cbbNhapXuat.SelectedIndex = 0) Then
            strsql &= " NX = 'N'"
            tieude = "TỔNG GIÁ TRỊ NHẬP LỆNH TỪ CÁC ĐƠN VỊ"
        Else
            strsql &= " NX = 'X'"
            tieude = "TỔNG GIÁ TRỊ XUẤT LỆNH CẤP CHO CÁC ĐƠN VỊ"
        End If
        Dim tungay, denngay, thoi_gian As String
        tungay = CStr(dtpTuNgay.Value.Month) + "/" + CStr(dtpTuNgay.Value.Day) + "/" + CStr(dtpTuNgay.Value.Year)
        denngay = CStr(dtpDenNgay.Value.Month) + "/" + CStr(dtpDenNgay.Value.Day) + "/" + CStr(dtpDenNgay.Value.Year)
        strsql &= " and (NGAY >= '" + tungay + "' and NGAY <= '" + denngay + "')"
        thoi_gian = "(  Từ ngày  " + dtpTuNgay.Text + "  đến ngày  " + dtpDenNgay.Text + "  )"
        Dim ds As DataSet
        ds = BaseDB.ExecSql_DataSet(strsql)
        Dim nnreport As New rptTongGiaTriNhapXuatTheoCacDonVi
        nnreport.SetDataSource(ds.Tables(0))
        nnreport.SetParameterValue("tieu_de", tieude)
        nnreport.SetParameterValue("thoi_gian", thoi_gian)
        Dim frm As New frmReportViewer(nnreport)
        frm.ShowDialog()
    End Sub
End Class